home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b1.d64
/
take'in.l
< prev
next >
Wrap
Text File
|
2007-02-28
|
442b
|
14 lines
9000 //
9010 PROC TAKE'IN(PROMPT$,VALID$,REF REPLY$,MAX) CLOSED
9020 Z:=ZONE
9030 ZONE 0
9040 PRINT PROMPT$,
9050 PRINT "<", // LEFT SIDE
9060 FOR X:=1 TO MAX DO PRINT " ", // BLANK OUT INPUT AREA
9070 PRINT ">", // RIGHT SIDE
9080 FOR X:=1 TO MAX+1 DO PRINT "¥", // CURSOR LEFT
9090 FETCH(REPLY$,VALID$,MAX)
9100 PRINT // CARRIAGE RETURN
9110 ZONE Z
9120 ENDPROC TAKE'IN